home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Comm / AmiTCP30b2.lha / src / netlib / getpid.c < prev    next >
C/C++ Source or Header  |  1994-04-04  |  588b  |  26 lines
  1. RCS_ID_C="$Id: getpid.c,v 3.2 1994/04/04 01:26:31 jraja Exp $";
  2. /*
  3.  * getpid() -- stub for FindTask(NULL)
  4.  *
  5.  * Author: ppessi <Pekka.Pessi@hut.fi>
  6.  *
  7.  * Copyright © 1993 AmiTCP/IP Group, <amitcp-group@hut.fi>
  8.  *                  Helsinki University of Technology, Finland.
  9.  *                  All rights reserved.
  10.  *
  11.  * Created      : Thu Mar 24 05:19:36 1994 ppessi
  12.  * Last modified: Thu Mar 24 05:33:48 1994 ppessi
  13.  *
  14.  */
  15.  
  16. #include <sys/types.h>
  17. #include <unistd.h>
  18. #include <exec/execbase.h>
  19. extern struct ExecBase *SysBase;
  20.  
  21. pid_t
  22. getpid(void)
  23. {
  24.   return (pid_t)SysBase->ThisTask;
  25. }
  26.